unit auswahl;

interface

uses
  SysUtils;

type
  Tauswahl = class

  private

  public
    function requestquestion(fragennummer: integer): String;
    function requestanswer1(fragennummer: integer): String;
    function requestanswer2(fragennummer: integer): String;
    function requestanswer3(fragennummer: integer): String;
    function requestanswer4(fragennummer: integer): String;
    function requestrightanswer(fragennummer: integer): String;
    procedure generate();
  end;
    var fragen: array of array of String;
    var generated: integer = 0;
implementation

  function Tauswahl.requestquestion(fragennummer: integer):String;
  result := 'question';
  begin

  end;

  function Tauswahl.requestanswer1(fragennummer: integer): String;
  begin
  result := 'question';
  end;

  function Tauswahl.requestanswer2(fragennummer: integer): String;
  begin
  result := 'question';
  end;

  function Tauswahl.requestanswer3(fragennummer: integer): String;
  begin
  result := 'question';
  end;

  function Tauswahl.requestanswer4(fragennummer: integer): String;
  begin
  result := 'question';
  end;

  function Tauswahl.requestrightanswer(fragennummer: integer): String;
  begin
  result := 'question';
  end;

  procedure Tauswahl.generate();                      //Im moment nur zum testen geeignet;
  var run : integer;
  begin
    if generated = 0 then
    begin
      SetLength(fragen, 15, 6);
      for run := 0 to 14 do
      begin
        fragen[run,0] := InttoStr(run+1);
      end;
      for run := 0 to 14 do
      begin
        fragen[run,1] := InttoStr(run+16);
      end;
      for run := 0 to 14 do
      begin
        fragen[run,2] := InttoStr(run+1+2*15);
      end;
      for run := 0 to 14 do
      begin
        fragen[run,3] := InttoStr(run+1+3*15);
      end;
      for run := 0 to 14 do
      begin
        fragen[run,4] := InttoStr(run+1+3*15);
      end;
      for run := 0 to 14 do
      begin
        fragen[run,5] := InttoStr(run+1+4*15);
      end;
    end;
  end;

end.
